2 PRINTCHR$(14):POKE53280,6
5 DIMC$(50),A(80)
6 PRINT"[147][196]U KANNST IM [198]OLGENDEN DIE [194]UCHSTABEN   GANZ NACH [194]ELIEBEN [199][210][207][211][211] ODER ";
7 PRINT"KLEIN EIN-GEBEN...":POKE198,0:WAIT198,1:POKE198,0
10 PRINT"[147]";:A$="":INPUT"[199]IB BITTE EIN [215]ORT EIN ";A$
15 IFA$=""THENEND
20 FORI=1TOLEN(A$):X$=MID$(A$,I,1)
30 A=ASC(X$):IFA>192ANDA<218THENA=A-128
40 A(I)=A:NEXT:A$=""
45 FORJ=1TOI-1:A$=A$+CHR$(A(J)):NEXT
50 PRINT"[194]ILDE EINEN [211]ATZ MIT DIESEM [215]ORT !"
60 INPUTB$
65 IFYTHENFORI=1TOY:C$(I)="":NEXT
70 Z=1:Y=1
80 FORI=1TOLEN(B$)
90 IFMID$(B$,I,1)=" "THENX=I-Z:C$(Y)=MID$(B$,Z,X):Z=Z+X+1:Y=Y+1
100 NEXT
110 X=I-Z:C$(Y)=MID$(B$,Z,X)
120 FORI=1TOY
125 FORJ=1TOLEN(C$(I)):X$=MID$(C$(I),J,1)
130 A=ASC(X$):IFA>192ANDA<218THENA=A-128
140 A(J)=A:NEXTJ:C$(I)=""
150 FORK=1TOJ-1:C$(I)=C$(I)+CHR$(A(K)):NEXTK
160 NEXTI
180 FORI=1TOY:PRINTC$(I):IFC$(I)=A$THENPRINT"^^  [196]IES WAR DAS [215]ORT ! [146]":S=1
190 NEXT
200 IFS=0THENPRINT" [196][213] [211][195][200][215][193][195][200][203][207][208][198] ! [146] - [196]EIN [215]ORT KAM IN   [196]EINEM [211]ATZ NICHT VOR!
240 [151]198,0:[146]198,1:[151]198,0:S[178]0:[137]10